home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / Bonus / Plasmatech / ptscp_examples.exe / %MAINDIR% / Examples / Translation / Delphi / FMain.dfm / FMain.txt
Encoding:
Text File  |  2001-08-31  |  3.2 KB  |  128 lines
  1. object FrmMain: TFrmMain
  2.   Left = 403
  3.   Top = 252
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsSingle
  6.   Caption = 'TrDemo'
  7.   ClientHeight = 200
  8.   ClientWidth = 364
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Menu = MainMenu1
  14.   Position = poScreenCenter
  15.   OnCreate = FormCreate
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Label1: TLabel
  19.     Left = 8
  20.     Top = 8
  21.     Width = 126
  22.     Height = 13
  23.     Caption = 'Current Language Module:'
  24.   end
  25.   object PTFrame1: TPTFrame
  26.     Left = 0
  27.     Top = 0
  28.     Width = 364
  29.     Height = 2
  30.     FrameStyle = ptfsHorzLine
  31.     Align = alTop
  32.   end
  33.   object Label2: TLabel
  34.     Left = 8
  35.     Top = 72
  36.     Width = 345
  37.     Height = 121
  38.     AutoSize = False
  39.     Caption = 
  40.       'This tests the internationalisation support of the Shell Control' +
  41.       ' Pack.'#10#10'NOTE: Only strings explicitly declared in the SCP code w' +
  42.       'ill be translated. Strings provided by Windows will reflect the ' +
  43.       'language of the operating system.'#10#10'When this demo is built with ' +
  44.       'Delphi 3 you can change the translation DLL with the File|Overri' +
  45.       'de language... menu option.'
  46.     WordWrap = True
  47.   end
  48.   object PTFrame2: TPTFrame
  49.     Left = 0
  50.     Top = 56
  51.     Width = 370
  52.     Height = 10
  53.     FrameStyle = ptfsHorzLine
  54.   end
  55.   object LangEdt: TEdit
  56.     Left = 8
  57.     Top = 24
  58.     Width = 353
  59.     Height = 21
  60.     Color = clBtnFace
  61.     ReadOnly = True
  62.     TabOrder = 0
  63.   end
  64.   object PTOpenDlg1: TPTOpenDlg
  65.     Options = [ptofAllowMultiselect, ptofFileMustExist, ptofNoReadOnlyReturn, ptofAllowTree, ptofShowHints, ptofOleDrag, ptofOleDrop]
  66.     Filter = 'PAS files (*.pas;*.dpr;*.inc)|*.pas;*.dpr;*.inc|All files (*)|*'
  67.     FilterIndex = 2
  68.     FormSplitterPos = 199
  69.     Left = 224
  70.     Top = 8
  71.   end
  72.   object PTSaveDlg1: TPTSaveDlg
  73.     Options = [ptofCreatePrompt, ptofHideReadOnly, ptofOverwritePrompt, ptofAllowTree, ptofShowHints, ptofOleDrag, ptofOleDrop]
  74.     Left = 256
  75.     Top = 8
  76.   end
  77.   object MainMenu1: TMainMenu
  78.     Left = 192
  79.     Top = 8
  80.     object File1: TMenuItem
  81.       Caption = '&File'
  82.       ShortCut = 0
  83.       object Changelanguage1: TMenuItem
  84.         Caption = '&Override language...'
  85.         ShortCut = 0
  86.         OnClick = Changelanguage1Click
  87.       end
  88.       object Clearoverride1: TMenuItem
  89.         Caption = 'C&lear override'
  90.         ShortCut = 0
  91.         OnClick = Clearoverride1Click
  92.       end
  93.       object N1: TMenuItem
  94.         Caption = '-'
  95.         ShortCut = 0
  96.       end
  97.       object Exit1: TMenuItem
  98.         Caption = 'E&xit'
  99.         ShortCut = 0
  100.         OnClick = Exit1Click
  101.       end
  102.     end
  103.     object Test1: TMenuItem
  104.       Caption = '&Test'
  105.       ShortCut = 0
  106.       object Opendialog1: TMenuItem
  107.         Caption = '&Open dialog...'
  108.         ShortCut = 0
  109.         OnClick = Opendialog1Click
  110.       end
  111.       object Savedialog1: TMenuItem
  112.         Caption = '&Save dialog...'
  113.         ShortCut = 0
  114.         OnClick = Savedialog1Click
  115.       end
  116.       object Folderbrowsedialog1: TMenuItem
  117.         Caption = '&Folder browse dialog...'
  118.         ShortCut = 0
  119.         OnClick = Folderbrowsedialog1Click
  120.       end
  121.     end
  122.   end
  123.   object PTFolderBrowseDlg1: TPTFolderBrowseDlg
  124.     Left = 288
  125.     Top = 8
  126.   end
  127. end
  128.